Application.ExecuteCommand("Global Options")
OptionsDlg.ActiveTab = "Design"
OptionsDlg.ActiveTab = "Global|General"
OptionsDlg.GlobalDlg.ActiveLayerComesToFront = true
OptionsDlg.Ok.Click()